home *** CD-ROM | disk | FTP | other *** search
/ Doonesbury Toonscapes / Doonesbury Toonscapes - Disc 2.iso / setup / uninst.inf < prev   
INI File  |  1995-10-13  |  7KB  |  254 lines
  1. DefineVariables
  2.     Text            [ProductName]           := Doonesbury Flashbacks
  3.     Text                        [ItemName]                            := Doonesbury Flashbacks
  4.     Text            [MainExeName]           := DA.EXE
  5.     Text            [ProductIniFile]        := DA.INI
  6.     Text            [ProgGrpName]           := Doonesbury Flashbacks
  7.     Text            [ProgGrpFileName]       := DOONESBU.GRP
  8.     Text            [SWTWLogo]              := BlankString
  9.     Text            [IconName]              := DA.ICO
  10.     Text            [BitmapName]            := TITLE.BMP
  11.     Directory       [WinGDir]               := WING
  12.     Directory       [SetupDir]              := SETUP
  13.     Directory       [SourceDir]             := DA
  14.     Directory       [TargetDir]             := BlankString
  15.     Directory       [TargetDrive]           := BlankString
  16.  
  17.     Number        [Continue]        := 1011
  18.     Text            [Language]        := English
  19.     Logical        [Minimal]                                            := N
  20.  
  21.     Text            [AreYouSureText]        := Are you sure you wish to uninstall?
  22.     Text        [YES_text]        := Yes
  23.     Text        [NO_text]        := No
  24.     Text            [DelteingFilesText]     := Please wait...
  25.     Text        [UninstallText]        := Uninstall
  26.  
  27.     Text        [EnglishSure]        := Are you sure you wish to completely remove the selected application and all it's components?
  28.     Text        [EnglishYES]        := Yes
  29.     Text        [EnglishNO]        := No
  30.     Text        [EnglishDeleting]    := Please wait...
  31.     Text        [EnglishUninstall]     := Uninstall
  32.  
  33.     Text        [FrenchSure]        := Voulez-vous supprimer dΘfinitivement l'application sΘlectionnΘe et tous ses composants ?
  34.     Text        [FrenchYES]        := Oui
  35.     Text        [FrenchNO]        := Non
  36.     Text        [FrenchDeleting]    := Veuillez patienter...
  37.     Text        [FrenchUninstall]    := DΘsinstaller
  38.  
  39.     Text        [GermanSure]        := Sind Sie sicher, da▀ Sie die gewΣhlte Anwendung und ihre ganzen Komponenten vollstΣndig entfernen wollen?
  40.     Text        [GermanYES]        := Ja
  41.     Text        [GermanNO]        := Nein
  42.     Text        [GermanDeleting]    := Bitte warten...
  43.     Text        [GermanUninstall]    := Entfernen
  44.  
  45.     Text        [SpanishSure]        := ┐Estß seguro de querer eliminar la aplicaci≤n seleccionada  y todos sus componentes?
  46.     Text        [SpanishYES]        := Sφ
  47.     Text        [SpanishNO]        := No
  48.     Text        [SpanishDeleting]    := Espere, por favor...
  49.     Text        [SpanishUninstall]    := Desinstalar
  50.  
  51.     Text        [ItalianSure]        := Si desidera eliminare completamente l'applicazione selezionata e tutti i suoi componenti?
  52.     Text        [ItalianYES]        := S∞
  53.     Text        [ItalianNO]        := No
  54.     Text        [ItalianDeleting]    := Attendere...
  55.     Text        [ItalianUninstall]    := Disinstalla
  56.  
  57.  
  58.     Text        [WhichLanguage]        :=
  59.  
  60.   Logical         [IsWin95]          := N
  61.   Logical         [IsWinNT]          := N
  62. EndDefineVariables
  63.  
  64. SetDefaultBitmap Off
  65. SetInstallModeTo Install
  66. SetTraceMode Off
  67. SetExitConfirmationPrompt off
  68. SetPopupBorderTo double
  69. SetReplacementInquiry Off
  70.  
  71.  
  72. Do WhichWindows
  73. Do CheckForMinimal
  74. Do SetInstallDir
  75. Do GetLanguageIndex
  76. Do SetLanguage
  77. SetTopLineTo [ProductName] [UninstallText]
  78. ShowWindow Maximize
  79. Do CheckIfSure
  80. SoLong Quietly
  81.  
  82. Procedure CheckForMinimal
  83.         ;; In case of Minimal install
  84.         If FileExists [WindowsDirectory]\DA.INI
  85.                 [Minimal] := Y
  86.         EndIf
  87. EndProcedure
  88.  
  89. Procedure WhichWindows
  90.       If WIN32
  91.          If WindowsVersion >= 3.95
  92.            [IsWin95] := Y
  93.          Else
  94.              If WindowsVersion >= 3.1
  95.                 [IsWinNT] := Y
  96.                    [IsWin95] := N  ;; Windows NT
  97.                EndIf
  98.          Endif
  99.       Else
  100.          [IsWin95] := N    ;; Win 3.1
  101.       EndIf
  102. EndProcedure
  103.  
  104. Procedure SetInstallDir
  105.         If [IsWin95]
  106.             [String10] := C:\Program Files\[ProductName]
  107.         Else
  108.             [String10] := C:\DF
  109.         EndIf
  110.     If FileExists [InstallFromDirectory]\AUTOHD.INI
  111.         ClearArray [Array1]
  112.                 [Array1][1] := Uninstall
  113.                 [Array1][2] := path
  114.                 [Array1][3] := [String10]
  115.                 [Array1][4] := [InstallFromDirectory]\AUTOHD.INI
  116.  
  117.                 GetPrivateProfileString Using [Array1]
  118.  
  119.                 [InstallationDirectory] := [Array1][5]
  120.     Else
  121.              Dialog BlackOnLightGray
  122.                 AUTOHD.INI  Not Found!
  123.                 Unable to complete Uninstall.
  124.              EndDialog
  125.     EndIf
  126.  
  127. EndProcedure
  128.  
  129. Procedure UNINSTALL
  130.         If DirectoryExists [InstallationDirectory]
  131.  
  132.             TextBox BlackOnLightGray
  133.             [DelteingFilesText]
  134.             EndTextBox
  135.  
  136.             If [IsWin95]
  137.          Run [InstallationDirectory]\REGISTRY.EXE [InstallationDirectory]\UFLASH.RGS
  138.       EndIf
  139.  
  140.             If DirectoryExists [InstallationDirectory]
  141.               DeleteFiles from [InstallationDirectory]
  142.                 *.*
  143.               EndDeleteFiles
  144.               DeleteDirectory [InstallationDirectory]
  145.             EndIf
  146.         EndIf
  147.  
  148.         If [Minimal] ;;Minimal case
  149.             DeleteFiles from [WindowsDirectory]
  150.                 DA.INI
  151.             EndDeleteFiles
  152.         EndIf
  153.  
  154.  
  155.         If [IsWin95]
  156.                 [String1] := [WindowsDirectory]\Start Menu\Programs\[ProductName]
  157.                 LFNGetShortPathName [String1] [String2]
  158.                 If [String2] <> BlankString
  159.                  ProgramManagerDDE
  160.                          ShowGroup([ProgGrpName],2)
  161.                          DeleteItem([ProgGrpName])
  162.                    DeleteGroup([ProgGrpName])
  163.                  EndProgramManagerDDE
  164.                           EndIf
  165.         Else
  166.             If [IsWinNT]
  167.               ProgramManagerDDE
  168.                   DeleteGroup([ProgGrpName])
  169.               EndProgramManagerDDE
  170.             Else
  171.               If FileExists [WindowsDirectory]\[ProgGrpFileName]
  172.                 ProgramManagerDDE
  173.                   DeleteGroup([ProgGrpName])
  174.                 EndProgramManagerDDE
  175.                 EndIf
  176.             EndIf
  177.         EndIf
  178. EndProcedure
  179.  
  180. Procedure CheckIfSure
  181.  
  182.   DialogBox 200 60 UseHeader "Doonesbury Flashbacks" Returns [Continue] BlackOnLightGray ModalFrame
  183.     CText @xy(0,10) 200 70 [AreYouSureText]
  184.     DefPushButton @xy( 30, 35) 40 16 [YES_text] 1012
  185.     PushButton @xy(125, 35) 40 16 [NO_text] 1011
  186.  EndDialogBox
  187.  
  188.  ClearScreen
  189.  
  190.  if [Continue] = 1012
  191.   Do UNINSTALL
  192.  Else
  193.   SoLong
  194.  EndIf
  195.  
  196. EndProcedure
  197.  
  198. Procedure GetLanguageIndex
  199.  
  200.  If FileExists [InstallFromDirectory]\AUTOHD.INI
  201.         ClearArray [Array1]
  202.     [Array1][1] := Language
  203.     [Array1][2] := which
  204.     [Array1][3] := English
  205.     [Array1][4] := [InstallFromDirectory]\AUTOHD.INI
  206.  
  207.     GetPrivateProfileString Using [Array1]
  208.     [Language] := [Array1][5]
  209.  
  210.  EndIf
  211.  
  212. EndProcedure
  213.  
  214. Procedure SetLanguage
  215.  
  216.     If [Language] = English
  217.       [DelteingFilesText] := [EnglishDeleting]
  218.       [AreYouSureText]    := [EnglishSure]
  219.       [YES_text]          := [EnglishYES]
  220.       [NO_text]          := [EnglishNO]
  221.       [UninstallText]     := [EnglishUninstall]
  222.         EndIf
  223.     If [Language] = French
  224.       [DelteingFilesText] := [FrenchDeleting]
  225.       [AreYouSureText]    := [FrenchSure]
  226.       [YES_text]          := [FrenchYES]
  227.       [NO_text]          := [FrenchNO]
  228.       [UninstallText]     := [FrenchUninstall]
  229.         EndIf
  230.     If [Language] = German
  231.       [DelteingFilesText] := [GermanDeleting]
  232.       [AreYouSureText]    := [GermanSure]
  233.       [YES_text]          := [GermanYES]
  234.       [NO_text]          := [GermanNO]
  235.       [UninstallText]     := [GermanUninstall]
  236.         EndIf
  237.     If [Language] = Spanish
  238.       [DelteingFilesText] := [SpanishDeleting]
  239.       [AreYouSureText]    := [SpanishSure]
  240.       [YES_text]          := [SpanishYES]
  241.       [NO_text]          := [SpanishNO]
  242.       [UninstallText]     := [SpanishUninstall]
  243.         EndIf
  244.     If [Language] = Italian
  245.       [DelteingFilesText] := [ItalianDeleting]
  246.       [AreYouSureText]    := [ItalianSure]
  247.       [YES_text]          := [ItalianYES]
  248.       [NO_text]          := [ItalianNO]
  249.       [UninstallText]     := [ItalianUninstall]
  250.         EndIf
  251. EndProcedure
  252.  
  253. EndScript
  254.